home *** CD-ROM | disk | FTP | other *** search
/ Aminet 22 / Aminet 22 (1997)(GTI - Schatztruhe)[!][Dec 1997].iso / Aminet / game / role / CTW10d.lha / CTW / scripts / Terminal / terminal_marsnet.script < prev   
Text File  |  1997-09-02  |  2KB  |  111 lines
  1. :LOOP|
  2. GOTO LOOP|
  3.  
  4. :TOUCH|
  5. [ "MARSnet Terminal Ready.  Please select"|
  6. [ "an option--"|
  7. [|
  8. ] "ATM" ATM|
  9. ] "Services" SERVICES|
  10. ] "News" NEWS|
  11. ] "Exit" EXIT|
  12.  
  13. :EXIT|
  14. [|
  15. GOTO LOOP|
  16.  
  17. :ATM|
  18. [ "New Freeport Bank ATM Services"|
  19. [ "Checking Account..."|
  20. PAUSE 2|
  21. GLOGET 24 @ACCNT|
  22. RATINGGET CRED @CREDS|
  23. [ "%n--You have %1 credits in your account" @ACCNT|
  24. ] "Deposit Credits" DEPOSIT|
  25. ] "Widthdrawl Credits" WIDTHDRAWL|
  26. ] "Return to MARSnet" TOUCH|
  27.  
  28. :DEPOSIT|
  29. [ "You have %1 creds on you.  Choose an amount" @CREDS|
  30. ] "10 Creds" DEP10|
  31. ] "50 Creds" DEP50|
  32. ] "200 Creds" DEP200|
  33.  
  34. :DEP10|
  35. SET @DEPVAL 10|
  36. GOTO DODEP|
  37.  
  38. :DEP50|
  39. SET @DEPVAL 50|
  40. GOTO DODEP|
  41.  
  42. :DEP200|
  43. SET @DEPVAL 200|
  44. GOTO DODEP|
  45.  
  46. :DODEP|
  47. IF @CREDS => @DEPVAL FINDEP|
  48. [ "Sorry, you don't have enough Creds."|
  49. GOTO ATM|
  50.  
  51. :FINDEP|
  52. MATH @CREDS - @DEPVAL|
  53. MATH @ACCNT + @DEPVAL|
  54. RATINGSET CRED @CREDS|
  55. GLOSET 24 @ACCNT|
  56. [ "Transaction Complete!"|
  57. GOTO ATM|
  58.  
  59. :WIDTHDRAWL|
  60. [ "Your account holds %1 Creds. Choose Amount." @ACCNT|
  61. ] "10 Creds" WID10|
  62. ] "50 Creds" WID50|
  63. ] "200 Creds" WID200|
  64.  
  65. :WID10|
  66. SET @WIDVAL 10|
  67. GOTO DOWID|
  68.  
  69. :WID50|
  70. SET @WIDVAL 50|
  71. GOTO DOWID|
  72.  
  73. :WID200|
  74. SET @WIDVAL 200|
  75. GOTO DOWID|
  76.  
  77. :DOWID|
  78. IF @ACCNT => @WIDVAL FINWID|
  79. [ "Sorry, your account doesn't have that"|
  80. [ "many creds in it."|
  81. GOTO ATM|
  82.  
  83. :FINWID|
  84. MATH @CREDS + @DEPVAL|
  85. MATH @ACCNT - @DEPVAL|
  86. RATINGSET CRED @CREDS|
  87. GLOSET 24 @ACCNT|
  88. [ "Transaction Complete!"|
  89. GOTO ATM|
  90.  
  91. :SERVICES|
  92. [|
  93. [ "Services are stil being added.  Please be patient"|
  94. ] "** NEW **    InstaFood Ordering" FOOD|
  95. ] "Return to Main" TOUCH|
  96. GOTO TOUCH|
  97.  
  98. :FOOD|
  99. [|
  100. [ "Your Pizza has been ordered.  It will"|
  101. [ "arrive in 3 minutes or your next one"|
  102. [ "is free."|
  103. LABELJUMP 6 PIZZAWAIT|
  104. GOTO SERVICES|
  105.  
  106. :NEWS|
  107. [|
  108. GOTO LOOP|
  109.  
  110.  
  111.